Description:
Mapped Command: RELEASE EVENT <label>
FUNCTION __RelEventRegion(label)
   local handle := __ScanObjects(label)          // if the button does indeed exits
   if handle > 0                                 // if we have a valid handle ID
      do case
      case _handles_[handle,06] == EventRegionObject
         * do nothing...                         // no need to clear anything
      case _handles_[handle,06] == IconButtonObject
         __ClrIconButton(handle)                 // clear the icon from the screen
      case _handles_[handle,06] == TextButtonObject
         * __ClrTextButton(handle)               // clear the text from the screen
      endcase
      _handles_[handle,01] := 0                  // upper left row
      _handles_[handle,02] := 0                  // upper left column
      _handles_[handle,03] := 0                  // lower right row
      _handles_[handle,04] := 0                  // lower right column
      _handles_[handle,05] := NullString         // object text
      _handles_[handle,06] := 0                  // object type
      _handles_[handle,07] := ShadowOff          // shadow
      _handles_[handle,08] := NullString         // object name
      _handles_[handle,09] := InactiveObject     // status (inactive)
      _handles_[handle,10] := NullInteger        // dGE icon number (0 through 7)
   else                                          // apparently there is no object by that name
      __HandleError(NoSuchLabel,label)           // branch to the handle error routine
   endif                                         // if handle > 0 .and. handle <= maxobjects      // if successful in gettong a get area
RETURN(Void)